home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / yearcal / YEARCAL.ZIP / DEMO / UNIT1.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-10-20  |  4.6 KB  |  183 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, YearCal;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Button5: TButton;
  15.     Button3: TButton;
  16.     Button4: TButton;
  17.     Button8: TButton;
  18.     Button7: TButton;
  19.     Button6: TButton;
  20.     Button9: TButton;
  21.     Button10: TButton;
  22.     Button11: TButton;
  23.     Button12: TButton;
  24.     Button13: TButton;
  25.     Button14: TButton;
  26.     Button15: TButton;
  27.     Button16: TButton;
  28.     Label1: TLabel;
  29.     DRYearCal1: TDRYearCal;
  30.     Button17: TButton;
  31.     Button18: TButton;
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure Button2Click(Sender: TObject);
  34.     procedure Button4Click(Sender: TObject);
  35.     procedure Button3Click(Sender: TObject);
  36.     procedure Button5Click(Sender: TObject);
  37.     procedure Button6Click(Sender: TObject);
  38.     procedure Button7Click(Sender: TObject);
  39.     procedure Button8Click(Sender: TObject);
  40.     procedure Button9Click(Sender: TObject);
  41.     procedure Button10Click(Sender: TObject);
  42.     procedure Button11Click(Sender: TObject);
  43.     procedure Button12Click(Sender: TObject);
  44.     procedure Button16Click(Sender: TObject);
  45.     procedure Button15Click(Sender: TObject);
  46.     procedure Button14Click(Sender: TObject);
  47.     procedure Button13Click(Sender: TObject);
  48.     procedure DRYearCal1Click(Sender: TObject; SelectedDate: TDateTime);
  49.     procedure Button17Click(Sender: TObject);
  50.     procedure Button18Click(Sender: TObject);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61.  
  62. {$R *.DFM}
  63.  
  64. procedure TForm1.Button1Click(Sender: TObject);
  65. begin
  66.   if (DRYearCal1.visible)
  67.     then DRYearCal1.visible := false
  68.     else DRYearCal1.visible := true;
  69. end;
  70.  
  71. procedure TForm1.Button2Click(Sender: TObject);
  72. begin
  73.   DRYearCal1.font.size := DRYearCal1.font.size + 1;
  74. end;
  75.  
  76. procedure TForm1.Button4Click(Sender: TObject);
  77. begin
  78.   DRYearCal1.year := DRYearCal1.year + 1;
  79.   Form1.caption := IntToStr(DRYearCal1.year);
  80. end;
  81.  
  82. procedure TForm1.Button3Click(Sender: TObject);
  83. begin
  84.   DRYearCal1.year := DRYearCal1.year - 1;
  85.   Form1.caption := IntToStr(DRYearCal1.year);
  86. end;
  87.  
  88. procedure TForm1.Button5Click(Sender: TObject);
  89. begin
  90.   DRYearCal1.font.size := DRYearCal1.font.size - 1;
  91. end;
  92.  
  93. procedure TForm1.Button6Click(Sender: TObject);
  94. begin
  95.   DRYearCal1.Lines := not DRYearCal1.Lines; 
  96. end;
  97.  
  98. procedure TForm1.Button7Click(Sender: TObject);
  99. begin
  100.   if (DRYearCal1.NumColumns = 4)
  101.     then DRYearCal1.NumColumns := 6
  102.     else DRYearCal1.NumColumns := DRYearCal1.NumColumns + 1;
  103.   Form1.refresh;
  104. end;
  105.  
  106. procedure TForm1.Button8Click(Sender: TObject);
  107. begin
  108.   if (DRYearCal1.NumColumns = 6)
  109.     then DRYearCal1.NumColumns := 4
  110.     else DRYearCal1.NumColumns := DRYearCal1.NumColumns - 1;
  111.   Form1.refresh;
  112. end;
  113.  
  114. procedure TForm1.Button9Click(Sender: TObject);
  115. begin
  116.   DRYearCal1.HorzDayGap := DRYearCal1.HorzDayGap + 1;
  117. end;
  118.  
  119. procedure TForm1.Button10Click(Sender: TObject);
  120. begin
  121.   DRYearCal1.HorzDayGap := DRYearCal1.HorzDayGap - 1;
  122. end;
  123.  
  124. procedure TForm1.Button11Click(Sender: TObject);
  125. begin
  126.   DRYearCal1.HorzMonthGap := DRYearCal1.HorzMonthGap + 2;
  127. end;
  128.  
  129. procedure TForm1.Button12Click(Sender: TObject);
  130. begin
  131.   DRYearCal1.HorzMonthGap := DRYearCal1.HorzMonthGap - 2;
  132. end;
  133.  
  134. procedure TForm1.Button16Click(Sender: TObject);
  135. begin
  136.   DRYearCal1.VertDayGap := DRYearCal1.VertDayGap + 2;
  137. end;
  138.  
  139. procedure TForm1.Button15Click(Sender: TObject);
  140. begin
  141.   if (DRYearCal1.VertDayGap > 0)
  142.     then DRYearCal1.VertDayGap := DRYearCal1.VertDayGap - 2;
  143. end;
  144.  
  145. procedure TForm1.Button14Click(Sender: TObject);
  146. begin
  147.   if (DRYearCal1.VertMonthGap < 100)
  148.     then DRYearCal1.VertMonthGap := DRYearCal1.VertMonthGap + 1;
  149. end;
  150.  
  151. procedure TForm1.Button13Click(Sender: TObject);
  152. begin
  153.   if (DRYearCal1.VertMonthGap > 0)
  154.     then DRYearCal1.VertMonthGap := DRYearCal1.VertMonthGap - 1;
  155. end;
  156.  
  157. procedure TForm1.DRYearCal1Click(Sender: TObject; SelectedDate: TDateTime);
  158. var
  159.   a,m,d : word;
  160. begin
  161.   DecodeDate(SelectedDate,a,m,d);
  162.   Label1.caption := IntToStr(d)+' / '+IntToStr(m)+' / '+IntToStr(a);
  163. end;
  164.  
  165. procedure TForm1.Button17Click(Sender: TObject);
  166. begin
  167.   if (DRYearCal1.color = clWhite)
  168.     then DRYearCal1.color := clSilver
  169.     else DRYearCal1.color := clWhite;
  170. end;
  171.  
  172. procedure TForm1.Button18Click(Sender: TObject);
  173. begin
  174.   if (DRYearCal1.border = boLowered) then
  175.     DRYearCal1.border := boRaised
  176.   else begin
  177.     DRYearCal1.border := boLowered;
  178.     DRYearCal1.Ctl3D := not DRYearCal1.Ctl3D;
  179.   end;
  180. end;
  181.  
  182. end.
  183.